home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / networking / amitcp / cp3update1.lha / Update / ControlPanel3.5.Installer < prev    next >
Encoding:
Text File  |  1995-02-10  |  4.0 KB  |  203 lines
  1. ;Installer V2 For AmiTCP Control Panel V3.5
  2. ;
  3. ;©Martin Hunt 1995
  4. ;
  5. ;
  6.  
  7. (complete 0)
  8.  
  9. (set amitcpdir
  10.    (askdir
  11.        (prompt "Where is AmiTCP installed?")
  12.        (help @askdir-help)
  13.        (default "dh1:amitcp")
  14.    )
  15. )
  16.  
  17. (makeassign "amitcp" amitcpdir)
  18.  
  19.  
  20. (complete 5)
  21.  
  22. (set @default-dest
  23.    (askdir
  24.        (prompt "Where is AmiTCP Control Panel Installed?")
  25.        (help @askdir-help)
  26.        (default "sys:wbstartup")
  27.    )
  28. )
  29.  
  30. (copyfiles
  31.    (prompt "Copying AmiTCP Control Panel to " @default-dest )
  32.    (help @copyfiles-help)
  33.    (source "cp_update")
  34.    (dest @default-dest)
  35.    (all)
  36.    (infos)
  37.    (confirm)
  38. )
  39.  
  40.  
  41. (complete 15)
  42.  
  43. (set @doc-dest
  44.    (askdir
  45.        (prompt "Where do you want to install AmiTCP Control Panel's Documents?")
  46.        (help @askdir-help)
  47.        (default "amitcp:docs")
  48.    )
  49. )
  50.  
  51.  
  52. (copyfiles
  53.    (prompt "Copying AmiTCP Control Panel Docs to " @doc-dest )
  54.    (help @copyfiles-help)
  55.    (source "docs")
  56.    (all)
  57.    (dest @doc-dest)
  58.    (infos)
  59.    (confirm)
  60. )
  61.  
  62. (complete 25)
  63.  
  64. (set mail
  65.    (askfile
  66.        (prompt "What Mail Program Do You Use?")
  67.        (help @askfile-help)
  68.        (default "amitcp:bin/mail")
  69.    )
  70. )
  71.  
  72. (complete 30)
  73. (set news
  74.    (askfile
  75.        (prompt "What News Program Do You Use?")
  76.        (help @askfile-help)
  77.        (default "amitcp:bin/grn")
  78.    )
  79. )
  80. (complete 35)
  81. (set ftp
  82.    (askfile
  83.        (prompt "What FTP Program Do You Use?")
  84.        (help @askfile-help)
  85.        (default "amitcp:bin/gui-ftp")
  86.    )
  87. )
  88. (complete 40)
  89. (set WWW
  90.    (askfile
  91.        (prompt "What WWW Browser Do You Use?")
  92.        (help @askfile-help)
  93.        (default "amitcp:bin/amosaic")
  94.    )
  95. )
  96. (complete 45)
  97. (set Gopher
  98.    (askfile
  99.        (prompt "What Gopher Program Do You Use?")
  100.        (help @askfile-help)
  101.        (default "amitcp:bin/gopher")
  102.    )
  103. )
  104. (complete 50)
  105. (set IRC
  106.    (askfile
  107.        (prompt "What IRC Program Do You Use?")
  108.        (help @askfile-help)
  109.        (default "amitcp:bin/gv")
  110.    )
  111. )
  112. (complete 55)
  113. (set UUDECODER
  114.    (askfile
  115.        (prompt "What UUDecoder Do You Use?")
  116.        (help @askfile-help)
  117.        (default "amitcp:bin/uuxt-gui")
  118.    )
  119. )
  120. (complete 60)
  121. (set DeArchiver
  122.    (askfile
  123.        (prompt "What DeArchiver Do You Use?")
  124.        (help @askfile-help)
  125.        (default "amitcp:bin/guiarc")
  126.    )
  127. )
  128. (complete 65)
  129. (set newsed
  130.    (askfile
  131.        (prompt "What News Group Editor Do You Use?")
  132.        (help @askfile-help)
  133.        (default "amitcp:bin/newsed_gui.exe")
  134.    )
  135. )
  136. (complete 70)
  137. (set left
  138.     (asknumber
  139.        (prompt "Enter How Far From The Left \n Of The Screen You Want The \n Requester To Appear")
  140.        (help @asknumber-help)
  141.        (range 0 1200)
  142.        (default 20)
  143.     )
  144. )
  145. (complete 75)
  146. (set top
  147.     (asknumber
  148.        (prompt "Enter How Far Down The Screen \n You Want The Requester To Appear")
  149.        (help @asknumber-help)
  150.        (range 0 600)
  151.        (default 30)
  152.     )
  153. )
  154.  
  155. (complete 80)
  156. (Set intro1 "; Control Panel Configuration File\n")
  157. (Set intro2 "; CPv3.5 9/2/95\n")
  158. (set blankline "\n")
  159. (Set intro3 "Requester Position\n")
  160. (set leftpos ("LEFT = %ld \n" left))
  161. (set toppos ("TOP = %ld \n" top))
  162. (set intro4 "Where Is AmiTCP stored?\n\n")
  163. (set amitcpdirt ("AMITCPDIR = %s \n" amitcpdir))
  164. (set Intro5 "Programs Used By Control Panel\n\n")
  165. (set mailprog ("Mail = %s \n" mail))
  166. (set newsprog ("News = %s \n" news))
  167. (set FtpProg ("FTP = %s \n" ftp))
  168. (set WWWprog ("WWW = %s \n" www))
  169. (Set GopherProg ("Gopher = %s \n" gopher))
  170. (set IRCprog ("IRC = %s \n" irc))
  171. (Set UUDecoderProg ("UUDECODER = %s \n" uudecoder))
  172. (Set Dearchiverprog ("DEARCHIVER = %s \n" dearchiver))
  173. (Set NewsEdProg ("NEWSEDPROG = %s \n" NewsEd))
  174. (set endofconfig "End Of Control Panel Config File")
  175. (complete 90)
  176. (textfile
  177.    (dest "s:cp.config")
  178.    (append intro1)
  179.    (append intro2)
  180.    (append blankline)
  181.    (append intro3)
  182.    (append leftpos)
  183.    (append toppos)
  184.    (append blankline)
  185.    (append Intro4)
  186.    (append amitcpdirt)
  187.    (append blankline)
  188.    (append intro5)
  189.    (append mailprog)
  190.    (append newsprog)
  191.    (append ftpprog)
  192.    (append wwwprog)
  193.    (append gopherprog)
  194.    (append ircprog)
  195.    (append uudecoderprog)
  196.    (append dearchiverprog)
  197.    (append newsedprog)
  198.    (append blankline)
  199.    (append endofconfig)
  200. )
  201.  
  202. (complete 100)
  203.